1000 PRINT "[147]  MACHINE CODE GENERATOR - WORKING.."
2000 FORL=0TO19:CX=0:FORD=0TO15:READA:CX=CX+A:POKE49152+L*16+D,A:NEXTD
2010 READA:IFA<>CXTHENPRINT"ERROR IN LINE";2040+(L*10):STOP
2020 NEXTL
2040 DATA172,167,2,169,204,133,254,169,0,133,251,133,253,169,4,133,2346
2050 DATA252,192,0,240,62,32,92,192,230,251,208,2,230,252,230,253,2718
2060 DATA208,2,230,254,165,251,201,231,208,231,165,252,201,7,208,225,3039
2070 DATA192,0,208,7,173,134,2,141,171,2,96,173,171,2,141,134,1747
2080 DATA2,160,0,153,0,216,153,255,216,153,254,217,153,233,218,200,2583
2090 DATA208,241,96,162,0,161,251,129,253,76,24,192,162,0,161,253,2369
2100 DATA129,251,96,160,0,140,172,2,173,167,2,72,165,251,72,165,2017
2110 DATA252,72,172,168,2,162,0,169,160,129,251,173,169,2,129,253,2263
2120 DATA136,240,13,230,251,230,253,208,236,230,252,230,254,76,117,192,3148
2130 DATA206,167,2,240,19,165,251,24,109,170,2,144,4,230,252,230,2215
2140 DATA254,133,251,133,253,76,114,192,238,172,2,173,172,2,201,2,2368
2150 DATA240,43,238,169,2,104,133,252,104,133,251,133,253,104,141,167,2467
2160 DATA2,165,252,24,105,212,133,254,173,167,2,56,233,2,72,165,2017
2170 DATA251,72,165,252,72,165,251,24,105,41,76,155,192,104,133,252,2310
2180 DATA104,133,251,104,141,167,2,173,168,2,56,233,2,141,168,2,1847
2190 DATA165,251,24,105,82,144,2,230,252,133,251,96,172,168,2,162,2239
2200 DATA0,161,253,24,105,128,129,251,136,240,15,230,251,208,2,230,2363
2210 DATA252,230,253,208,2,230,254,76,255,192,206,167,2,240,21,165,2753
2220 DATA251,24,109,170,2,144,2,230,252,133,251,230,253,208,2,230,2491
2230 DATA254,76,252,192,96,0,0,0,44,83,0,83,0,83,0,83,1246
3000 REM ** READY TO SAVE **
3010 PRINT "    ANY KEY TO SAVE"
3020 GETK$:IFK$=""THEN3020
3030 POKE 43,0:POKE44,192:POKE45,57:POKE46,193
3070 SAVE "BPOP",8
3080 REM CHANGE ,8 TO ,1 FOR TAPE USE